home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1993 November
/
JCSM Shareware Collection - 1993-11.iso
/
cl760
/
edgraphj.lzh
/
EXPANDME.EXE
/
lha
/
POLAR2.GRF
< prev
next >
Wrap
Text File
|
1992-11-19
|
2KB
|
39 lines
{------------------------------------------------------------------------
{ POLAR2.GRF - EdGraph demo program (polar coords)
{
{ Type - AltV to see this demo, or
{ - AltP to print it, but first...SPECIFY WHAT PRINTER YOU ARE USING:
{--------------------------------------------------------------------------}
Printer=13; { Change the value to one of these, depending on your printer:}
{ 1 = Generic 9 pin dot matrix, }
{ 2..7 = Epson: 2=MX, 3=RX, 4=FX, 5=EX, 6=LX, 7=LQ }
{ 8..9 = IBM: 8=ProPrinter, 9=QuietWriter }
{ 10 = NEC 24 pin }
{ 11 = Toshiba 24 pin }
{ 12..13 = HP: 12=DeskJet, 13=LaserJet }
{ 14 = PostScript printers }
{--------------------------------------------------------------------------}
PgHeight=160; PgWidth=160; Orientn=1; Res=1;
Initialise(Printer,PgHeight,PgWidth,Orientn,Res,"LPT1");
x1=-2.5; y1=-2; x2=1; y2=2;
NewPlot(x1,y1,x2,y2,25,105,20,120,0,0);
xaxis("x",y1,-3,1,1,5,0,1);
yaxis("y",x1,y1,1,1,5,0,1);
xaxis("",y2,-3,1,2,5,0,0);
yaxis("",x2,y1,1,2,5,0,0);
Line(x1,0,x2,0); {cross-hairs}
Line(0,y1,0,y2);
MoveTo(x1+0.5,y2-0.5);
TextStyle(0,0,1); {underline}
Text(" Cardioid ");
Polar(1); MoveTo(0,0);
For theta=0 to 6.3 step 0.03;
LineTo(theta,1-cos(theta));
EndFor;